home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / UTILSTIC / SYSID47.LZH / PAGE_12.PAS < prev    next >
Pascal/Delphi Source File  |  1990-12-08  |  1KB  |  45 lines
  1. procedure page_12;
  2.  
  3. const
  4.   headermin = 0;
  5.   headermax = 17;
  6.  
  7. var
  8.   header : array[headermin..headermax] of byte;
  9.   i : headermin..headermax;
  10.   xword1 : word;
  11.   xword2 : word;
  12.  
  13.   begin
  14.   caption1('Device      Units    Header       Attributes'
  15.     + '             Strategy     Interrupt');
  16.   xword1:=devseg;
  17.   xword2:=devofs + $0022;
  18.   window(1, 4, twidth, tlength - 2);
  19.   while xword2 < $FFFF do
  20.     begin
  21.     pause2;
  22.     if endit then
  23.       Exit;
  24.     for i:=0 to 17 do
  25.       header[i]:=mem[xword1 : xword2 + i];
  26.     if header[5] and $80 = $00 then
  27.       write('            ', header[10] : 5)
  28.     else
  29.       begin
  30.       for i:=10 to 17 do
  31.         write(showchar(chr(header[i])));
  32.       write('         ')
  33.       end;
  34.     write('    ');
  35.     segofs(xword1, xword2);
  36.     write('    ', bin16(cbw(header[4], header[5])), '    ');
  37.     segofs(xword1, cbw(header[6], header[7]));
  38.     write('    ');
  39.     segofs(xword1, cbw(header[8], header[9]));
  40.     writeln;
  41.     xword1:=cbw(header[2], header[3]);
  42.     xword2:=cbw(header[0], header[1])
  43.     end
  44.   end;
  45.